﻿Imports System.Data
Imports System.Data.SqlClient
Imports System.Xml
Public Class frmModificarBeneficiario
    Public IdBene As Integer
    Private Sub btnCerrar_Click(sender As Object, e As EventArgs) Handles btnCerrar.Click
        Me.Close()
    End Sub


    Private Sub frmModificarBeneficiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarParentesco' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarParentescoTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarParentesco)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarCliente' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarCliente)
        'TODO: esta línea de código carga datos en la tabla 'EsperanzaDBDataSet.SP_ListarBeneficiario' Puede moverla o quitarla según sea necesario.
        Me.SP_ListarBeneficiarioTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_ListarBeneficiario)
        Me.btnEliminar.Enabled = False
        Me.gboInformacion.Enabled = False
    End Sub

    Private Sub cboBusquedaCliente_EditValueChanged(sender As Object, e As EventArgs) Handles cboBusquedaCliente.EditValueChanged
        Me.SP_MostrarBeneficiarioXRnpClienteTableAdapter.Fill(Me.EsperanzaDBDataSet.SP_MostrarBeneficiarioXRnpCliente, cboBusquedaCliente.EditValue)
    End Sub

    Private Sub Llenardatos()
        If varConexion.State = ConnectionState.Open Then
            varConexion.Close()
        End If
        Try
            varConexion.Open()
            Dim cmd As New SqlCommand("SP_MostrarBeneficiario", varConexion)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.Add("@IdBeneficiario", SqlDbType.Int).Value = gvBeneficiarios.GetRowCellDisplayText(Me.gvBeneficiarios.FocusedRowHandle, "IdBeneficiario")

            Dim reader As SqlDataReader
            reader = cmd.ExecuteReader
            If reader.Read = True Then
                Me.txtNombre.Text = reader.Item("Nombres")
                Me.txtApellido.Text = reader.Item("Apellidos")
                Me.txtPorcentaje.Text = reader.Item("Porcentaje")
                Me.cboParentesco.EditValue = reader.Item("IdParentesco")
                IdBene = reader.Item("IdBeneficiario")
            End If
            varConexion.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub EliminarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarToolStripMenuItem.Click
        Llenardatos()
        Me.btnEliminar.Enabled = True
        Me.gboInformacion.Enabled = True
    End Sub

    Private Sub BorrarBenefiario()
        Try
            Me.SP_ListarBeneficiarioTableAdapter.SP_BorrarBeneficiario(IdBene)
            MessageBox.Show("Ha eliminado un beneficiario del registro del cliente", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnEliminar_Click(sender As Object, e As EventArgs) Handles btnEliminar.Click
        BorrarBenefiario()
        Me.Close()
    End Sub

    Private Sub ActualizarBeneficiario()
        Try
            SP_ListarBeneficiarioTableAdapter.SP_ActualizarBeneficiario(IdBene, txtNombre.Text, txtApellido.Text, cboParentesco.EditValue, txtPorcentaje.Text, cboBusquedaCliente.EditValue)
            MessageBox.Show("Han cambiado sus datos de benefiario", varTitulo, MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub btnActualizar_Click(sender As Object, e As EventArgs) Handles btnActualizar.Click
        ActualizarBeneficiario()
        Me.Close()
    End Sub

End Class